home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 001_100 / DISK0027 / DISK0027.ZIP / AUTHOR.BAS next >
BASIC Source File  |  1980-01-01  |  2KB  |  63 lines
  1. 10 '
  2. 20 '     TO DISPLAY TEXT PART OF SCREEN
  3. 30 '     DURING ATTRACT MODE.
  4. 40 '
  5. 50 '     SEE LINE 420 FOR ADDITIONAL
  6. 60 '     COMMENTS.
  7. 70 '
  8. 80 CLS : KEY OFF : SCREEN 1,0
  9. 90 X=15 : Y=25 : PI=22/7
  10. 100 LINE (X,Y-6)-(X+30,Y-6)
  11. 110 DRAW "G30"
  12. 120 LINE (X,Y-5)-(X+30,Y-5)
  13. 130 DRAW "G30"
  14. 140 LINE (X,Y+25)-(X+30,Y+25)
  15. 150 LINE (X,Y+26)-(X+30,Y+26)
  16. 160 CIRCLE (X+50,Y+13),16
  17. 170 CIRCLE (X+50,Y+13),15
  18. 180 CIRCLE (X+92,Y+13),16
  19. 190 CIRCLE (X+92,Y+13),15
  20. 200 X=X+150 : Y=Y
  21. 210 CIRCLE (X,Y),10,,,4
  22. 220 CIRCLE (X,Y),9,,,4
  23. 230 CIRCLE (X,Y+20),10,,3
  24. 240 CIRCLE (X,Y+20),11,,3
  25. 250 LINE (X-5,Y+7)-(X+10,Y+20)
  26. 260 LINE (X-4,Y+7)-(X+11,Y+20)
  27. 270 CIRCLE (X+35,Y+13),16
  28. 280 CIRCLE (X+35,Y+13),15
  29. 290 PSET (X+65,Y)
  30. 300 DRAW "D27"
  31. 310 PSET (X+66,Y)
  32. 320 DRAW "D27"
  33. 330 CIRCLE (X+80,Y+8),10,,1.5*PI,.5*PI
  34. 340 CIRCLE (X+80,Y+8),9,,1.5*PI,.5*PI
  35. 350 PSET (X+66,Y)
  36. 360 DRAW "R15D1L15"
  37. 370 DRAW "D15R15U1L15"
  38. 380 PSET (X+79,Y+15)
  39. 390 DRAW "F12L1H12"
  40. 400 PSET (X+105,Y)
  41. 410 DRAW "R32"
  42. 420 PSET (X+105,Y+1)
  43. 430 DRAW "R32L15D27L1U27"
  44. 432 DDD=750
  45. 435 FOR I=1 TO DDD :NEXT I
  46. 440 LOCATE 11,15 : PRINT "Writen by";
  47. 445 FOR I=1 TO DDD :NEXT I
  48. 450 LOCATE 15,11 : PRINT "Ehab E. Elmaghrabi";
  49. 455 FOR I=1 TO DDD :NEXT I
  50. 460 LOCATE 17,13 : PRINT "Mark C. Fabel";
  51. 465 FOR I=1 TO DDD :NEXT I
  52. 470 LOCATE 19,14 : PRINT "John Hagarty";
  53. 475 FOR I=1 TO DDD :NEXT I
  54. 480 LOCATE 24,10 : PRINT "One moment please...";
  55. 490 '
  56. 500 '   TO ACCEPT ANY KEY
  57. 510 '
  58. 520 X$=INKEY$ : IF X$="" THEN 520
  59. 530 CLS : PRINT "HERE WOULD BE A GOTO STATEMENT TO CREATE PROGRAM";
  60. ACCEPT ANY KEY
  61. 510 '
  62. 520 X$=INKEY$ : IF X$="" THEN 520
  63. 530 CLS : PRINT "HERE WOULD BE A GOTO S